home *** CD-ROM | disk | FTP | other *** search
/ Megarom / Megarom Macintosh CD Software (Quantum Leap)(1992).iso / COMMUNICATION / WK Easy Emul / EE.txt < prev    next >
Text File  |  1990-10-13  |  1KB  |  75 lines
  1. * ======================
  2. *     Easy Emulation
  3. *     version 1.2
  4. * ======================
  5. * =
  6. * Easy Emulation is free, and considered PUBLIC DOMAIN.  You may modify
  7. * this if you wish, and redistribute it.  Just be sure to change the name,
  8. * and give me credit for the little that I *did* do.
  9. * Thanks.
  10. * =
  11. * Chris Silverberg  - Main Street USA BBS - (508) 832-7725
  12.  
  13. :BEGIN
  14. SETGROUP 1,1
  15. SETGROUP 2,1
  16. SHELL A%,32444
  17. TEST A% = 1
  18. IF NO JUMPTO GETOUT
  19. GETGROUP A%,1
  20. GETGROUP B%,2
  21. TEST B% = 1
  22. IF YES LET EQUAL P%,9
  23. IF NO LET EQUAL P%,12
  24. TEST A% = 1
  25. IF YES JUMPTO PCANSI
  26. TEST A% = 2
  27. IF YES JUMPTO VTEMUL
  28. TEST A% = 3
  29. IF YES JUMPTO TTYPC
  30. TEST A% = 4
  31. IF YES JUMPTO TTYMAC
  32.  
  33. :REGTTY
  34. DELKEY OFF
  35. TTY
  36. NOZAP OFF
  37. FONT 98,P%
  38. JUMPTO GETOUT
  39.  
  40. :PCANSI
  41. DELKEY OFF
  42. VT102
  43. PUTPARAM 142,1
  44. PUTPARAM 143,0
  45. PUTPARAM 144,201
  46. NOZAP ON
  47. FONT 201,P%
  48. JUMPTO GETOUT
  49.  
  50. :VTEMUL
  51. DELKEY ON
  52. VT102
  53. NOZAP OFF
  54. FONT 98,P%
  55. JUMPTO GETOUT
  56.  
  57. :TTYPC
  58. DELKEY OFF
  59. TTY
  60. PUTPARAM 142,1
  61. PUTPARAM 143,0
  62. PUTPARAM 144,201
  63. NOZAP ON
  64. FONT 201,P%
  65. JUMPTO GETOUT
  66.  
  67. :TTYMAC
  68. DELKEY OFF
  69. TTY
  70. NOZAP ON
  71. FONT 98,P%
  72. JUMPTO GETOUT
  73.  
  74. :GETOUT
  75. END